home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ADV350.ZIP / upcase.for < prev    next >
Text File  |  1990-11-18  |  288b  |  13 lines
  1.       SUBROUTINE UPCASE(LINE)
  2. C
  3. C  ACCEPTS A CHARACTER STRING AND CONVERTS LOWER CASE LETTERS TO UPPER CASE
  4. C
  5.       CHARACTER LINE * (*)
  6.       
  7.       DO 1 I=1,LEN(LINE)
  8.       J=ICHAR(LINE(I:I))
  9.     1 IF(J.GE.97.AND.J.LE.122) LINE(I:I)=CHAR(J-32)
  10.       RETURN
  11.       END
  12.       
  13.